home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simon1 / sabout.frm < prev    next >
Text File  |  1995-05-08  |  4KB  |  122 lines
  1. VERSION 2.00
  2. Begin Form AboutBox 
  3.    BackColor       =   &H0000FF00&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "About Simon"
  6.    ClientHeight    =   2760
  7.    ClientLeft      =   2025
  8.    ClientTop       =   1605
  9.    ClientWidth     =   6525
  10.    FontBold        =   -1  'True
  11.    FontItalic      =   -1  'True
  12.    FontName        =   "MS Serif"
  13.    FontSize        =   9.75
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    ForeColor       =   &H00000000&
  17.    Height          =   3165
  18.    Icon            =   SABOUT.FRX:0000
  19.    Left            =   1965
  20.    LinkMode        =   1  'Source
  21.    LinkTopic       =   "Form2"
  22.    MaxButton       =   0   'False
  23.    MinButton       =   0   'False
  24.    ScaleHeight     =   2760
  25.    ScaleWidth      =   6525
  26.    Top             =   1260
  27.    Width           =   6645
  28.    Begin CommandButton Cmd_OK 
  29.       Caption         =   "OK"
  30.       FontBold        =   -1  'True
  31.       FontItalic      =   0   'False
  32.       FontName        =   "System"
  33.       FontSize        =   9.75
  34.       FontStrikethru  =   0   'False
  35.       FontUnderline   =   0   'False
  36.       Height          =   360
  37.       Left            =   4980
  38.       TabIndex        =   0
  39.       Top             =   1140
  40.       Width           =   1035
  41.    End
  42.    Begin PictureBox Picture1 
  43.       BackColor       =   &H0000FF00&
  44.       BorderStyle     =   0  'None
  45.       Height          =   735
  46.       Left            =   315
  47.       Picture         =   SABOUT.FRX:0302
  48.       ScaleHeight     =   735
  49.       ScaleWidth      =   825
  50.       TabIndex        =   3
  51.       Top             =   735
  52.       Width           =   825
  53.    End
  54.    Begin Label Label2 
  55.       AutoSize        =   -1  'True
  56.       BackColor       =   &H0000FF00&
  57.       Caption         =   "Freeware by Jeff Elkins "
  58.       FontBold        =   -1  'True
  59.       FontItalic      =   -1  'True
  60.       FontName        =   "MS Sans Serif"
  61.       FontSize        =   12
  62.       FontStrikethru  =   0   'False
  63.       FontUnderline   =   0   'False
  64.       ForeColor       =   &H00000000&
  65.       Height          =   300
  66.       Left            =   1515
  67.       TabIndex        =   4
  68.       Top             =   1530
  69.       Width           =   3030
  70.    End
  71.    Begin Label Lbl_Version 
  72.       AutoSize        =   -1  'True
  73.       BackColor       =   &H0000FF00&
  74.       Caption         =   "Version 1.01"
  75.       FontBold        =   -1  'True
  76.       FontItalic      =   0   'False
  77.       FontName        =   "MS Sans Serif"
  78.       FontSize        =   9.75
  79.       FontStrikethru  =   0   'False
  80.       FontUnderline   =   0   'False
  81.       ForeColor       =   &H00000000&
  82.       Height          =   240
  83.       Left            =   2985
  84.       TabIndex        =   2
  85.       Top             =   960
  86.       Width           =   1290
  87.    End
  88.    Begin Label Lbl_IconWorks 
  89.       AutoSize        =   -1  'True
  90.       BackColor       =   &H0000FF00&
  91.       Caption         =   "Simon"
  92.       FontBold        =   -1  'True
  93.       FontItalic      =   -1  'True
  94.       FontName        =   "MS Sans Serif"
  95.       FontSize        =   18
  96.       FontStrikethru  =   0   'False
  97.       FontUnderline   =   0   'False
  98.       ForeColor       =   &H00000000&
  99.       Height          =   435
  100.       Left            =   1470
  101.       TabIndex        =   1
  102.       Top             =   780
  103.       Width           =   1335
  104.    End
  105. End
  106. DefInt A-Z
  107.  
  108. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags) As Long
  109. Declare Function GetWinFlags Lib "Kernel" () As Long
  110.  
  111. Const WF_STANDARD = &H10
  112. Const WF_ENHANCED = &H20
  113. Const WF_80x87 = &H400
  114.  
  115. Sub Cmd_OK_Click ()
  116.  
  117. Unload AboutBox
  118.  
  119.  
  120. End Sub
  121.  
  122.